## Warning: package 'tidyverse' was built under R version 3.6.3
## -- Attaching packages ------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2 v purrr 0.3.4
## v tibble 3.0.3 v dplyr 1.0.2
## v tidyr 1.1.2 v stringr 1.4.0
## v readr 1.3.1 v forcats 0.4.0
## Warning: package 'ggplot2' was built under R version 3.6.3
## Warning: package 'tibble' was built under R version 3.6.3
## Warning: package 'tidyr' was built under R version 3.6.3
## Warning: package 'purrr' was built under R version 3.6.3
## Warning: package 'dplyr' was built under R version 3.6.3
## -- Conflicts ---------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
## Warning: package 'maps' was built under R version 3.6.3
##
## Attaching package: 'maps'
## The following object is masked from 'package:purrr':
##
## map
## Warning: package 'mapdata' was built under R version 3.6.3
## Warning: package 'lubridate' was built under R version 3.6.3
##
## Attaching package: 'lubridate'
## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, union
## Warning: package 'viridis' was built under R version 3.6.3
## Loading required package: viridisLite
## Warning: package 'viridisLite' was built under R version 3.6.3
## Warning: package 'wesanderson' was built under R version 3.6.3
## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_character(),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character()
## )
## Warning: Removed 54 rows containing missing values (geom_point).

## Parsed with column specification:
## cols(
## FIPS = col_character(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_datetime(format = ""),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character()
## )

## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_datetime(format = ""),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character(),
## Incidence_Rate = col_double(),
## `Case-Fatality_Ratio` = col_double()
## )

## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_character(),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character()
## )
## `summarise()` ungrouping output (override with `.groups` argument)

## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_datetime(format = ""),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character(),
## Incidence_Rate = col_double(),
## `Case-Fatality_Ratio` = col_double()
## )
## `summarise()` ungrouping output (override with `.groups` argument)
## Warning: Transformation introduced infinite values in discrete y-axis

## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_character(),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character()
## )
## `summarise()` ungrouping output (override with `.groups` argument)

## # A tibble: 14 x 2
## Admin2 Confirmed
## <chr> <dbl>
## 1 barnstable 283
## 2 berkshire 213
## 3 bristol 424
## 4 dukes and nantucket 12
## 5 essex 1039
## 6 franklin 85
## 7 hampden 546
## 8 hampshire 102
## 9 middlesex 1870
## 10 norfolk 938
## 11 plymouth 621
## 12 suffolk 1896
## 13 unassigned 270
## 14 worcester 667
## Warning: package 'plotly' was built under R version 3.6.3
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
## Warning: `group_by_()` is deprecated as of dplyr 0.7.0.
## Please use `group_by()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_character(),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character()
## )
## `summarise()` ungrouping output (override with `.groups` argument)
## Parsed with column specification:
## cols(
## FIPS = col_double(),
## Admin2 = col_character(),
## Province_State = col_character(),
## Country_Region = col_character(),
## Last_Update = col_datetime(format = ""),
## Lat = col_double(),
## Long_ = col_double(),
## Confirmed = col_double(),
## Deaths = col_double(),
## Recovered = col_double(),
## Active = col_double(),
## Combined_Key = col_character(),
## Incidence_Rate = col_double(),
## `Case-Fatality_Ratio` = col_double()
## )
## `summarise()` ungrouping output (override with `.groups` argument)
## [1] "Aruba"
## [2] "Anguilla"
## [3] "American Samoa"
## [4] "Antarctica"
## [5] "French Southern and Antarctic Lands"
## [6] "Antigua"
## [7] "Barbuda"
## [8] "Saint Barthelemy"
## [9] "Bermuda"
## [10] "Ivory Coast"
## [11] "Democratic Republic of the Congo"
## [12] "Republic of Congo"
## [13] "Cook Islands"
## [14] "Cape Verde"
## [15] "Curacao"
## [16] "Cayman Islands"
## [17] "Czech Republic"
## [18] "Canary Islands"
## [19] "Falkland Islands"
## [20] "Reunion"
## [21] "Mayotte"
## [22] "French Guiana"
## [23] "Martinique"
## [24] "Guadeloupe"
## [25] "Faroe Islands"
## [26] "Micronesia"
## [27] "UK"
## [28] "Guernsey"
## [29] "Greenland"
## [30] "Guam"
## [31] "Heard Island"
## [32] "Isle of Man"
## [33] "Cocos Islands"
## [34] "Christmas Island"
## [35] "Chagos Archipelago"
## [36] "Jersey"
## [37] "Siachen Glacier"
## [38] "Kiribati"
## [39] "Nevis"
## [40] "Saint Kitts"
## [41] "South Korea"
## [42] "Saint Martin"
## [43] "Marshall Islands"
## [44] "Macedonia"
## [45] "Myanmar"
## [46] "Northern Mariana Islands"
## [47] "Montserrat"
## [48] "New Caledonia"
## [49] "Norfolk Island"
## [50] "Niue"
## [51] "Bonaire"
## [52] "Sint Eustatius"
## [53] "Saba"
## [54] "Nauru"
## [55] "Pitcairn Islands"
## [56] "Palau"
## [57] "Puerto Rico"
## [58] "North Korea"
## [59] "Madeira Islands"
## [60] "Azores"
## [61] "Palestine"
## [62] "French Polynesia"
## [63] "South Sandwich Islands"
## [64] "South Georgia"
## [65] "Saint Helena"
## [66] "Ascension Island"
## [67] "Solomon Islands"
## [68] "Saint Pierre and Miquelon"
## [69] "Swaziland"
## [70] "Sint Maarten"
## [71] "Turks and Caicos Islands"
## [72] "Turkmenistan"
## [73] "Tonga"
## [74] "Trinidad"
## [75] "Tobago"
## [76] "Taiwan"
## [77] "USA"
## [78] "Vatican"
## [79] "Grenadines"
## [80] "Saint Vincent"
## [81] "Virgin Islands"
## [82] "Vanuatu"
## [83] "Wallis and Futuna"
## [84] "Samoa"